home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / telecom / qemmter4.zip / HOST.DAD < prev    next >
Text File  |  1996-10-26  |  4KB  |  248 lines
  1. @ECHO OFF
  2. ;
  3. C:
  4. C:\IM2\X00.EXE  DV E B,1,57600  F=10 T=4096 R=4096
  5. C:\IM2\XU.EXE DV:ON WATCHCD:2:ON FIFO:10
  6. CLS
  7. ;
  8. ;
  9. CD\IM2
  10. ;
  11.  SET IM=C:\IM2
  12.  SET IE=C:\IM2
  13.  SET TZ=CST6CDT
  14.  SET ALLFIX=C:\IM2\AF
  15.  SET ASETUP=C:\IM2\AF
  16.  SET HATCH=C:\IM2\AF
  17.  SET POINTNET=9998
  18.  SET POINTNET=C:\IM2\NODELIST\POINTNET.LST
  19.  SET DSZPORT=2
  20.  SET TWNODE=1
  21. ;
  22. :START
  23.  cd\im2
  24.  IM /#1 
  25.  if errorlevel 255 goto aftermail
  26.  if errorlevel 254 goto end
  27.  if errorlevel 250 goto terminat
  28.  if errorlevel 240 goto 24000
  29.  if errorlevel 230 goto 33600
  30.  if errorlevel 220 goto 31200
  31.  if errorlevel 215 goto 26400
  32.  if errorlevel 210 goto 21600
  33.  if errorlevel 200 goto 28800
  34.  if errorlevel 192 goto 19200
  35.  if errorlevel 175 goto toss
  36.  if errorlevel 168 goto 16800
  37.  if errorlevel 150 goto pack
  38.  if errorlevel 144 goto 14400
  39.  if errorlevel 125 goto nodediff
  40.  if errorlevel 120 goto 12000
  41.  if errorlevel 100 goto scan-toss
  42.  if errorlevel 96 goto 9600
  43.  if errorlevel 90 goto tape
  44.  if errorlevel 72 goto 7200
  45.  if errorlevel 70 goto maintenance
  46.  if errorlevel 60 goto local-bbs
  47.  if errorlevel 48 goto 4800
  48.  if errorlevel 24 goto 2400
  49.  if errorlevel 1 goto end
  50.  if errorlevel 0 goto end
  51.  goto end
  52. ;
  53. :AFTERMAIL
  54.  CLS
  55.   if exist c:\im2\secure\nodediff.* copy c:\im2\secure\nodediff.* d:\hold
  56.   if exist c:\im2\secure\toadlist.z* copy c:\im2\secure\toadlist.z* d:\hold
  57.   if exist c:\im2\secure\*.SU* copy c:\im2\secure\*.SU* d:\hold
  58.   if exist c:\im2\secure\*.MO* copy c:\im2\secure\*.MO* d:\hold
  59.   if exist c:\im2\secure\*.TU* copy c:\im2\secure\*.TU* d:\hold
  60.   if exist c:\im2\secure\*.WE* copy c:\im2\secure\*.WE* d:\hold
  61.   if exist c:\im2\secure\*.TH* copy c:\im2\secure\*.TH* d:\hold
  62.   if exist c:\im2\secure\*.FR* copy c:\im2\secure\*.FR* d:\hold
  63.   if exist c:\im2\secure\*.SA* copy c:\im2\secure\*.SA* d:\hold
  64. ;
  65. rem   C:
  66. rem   CD\DV
  67. rem   SPAWN SP-PIF.DVP -B
  68. rem   goto start
  69. ;
  70.  C:
  71.  CD\IM2
  72.  intrecho /scan /toss /netmail /areafix
  73.  if exist c:\im2\secure\*.tic goto tic
  74.  goto start
  75. ;
  76. :TERMINAT
  77.  C:
  78.  CD\IM2
  79.  intrecho /toss /netmail /areafix
  80.  CD\IM2\AF
  81.  ALLFIX MGR
  82.  ALLFIX SCAN
  83.  ALLFIX FILE
  84.  ALLFIX FILE -TOSSBAD
  85.  ALLFIX ANNOUNCE
  86.  CD\IM2
  87.  goto start
  88. ;
  89. :NODEDIFF
  90.  C:
  91.  CD\IM2\NODELIST
  92.  if exist d:\hold\nodediff.* move d:\hold\nodediff.* c:\im2\nodelist
  93.  if exist d:\hold\toadlist.z* move d:\hold\toadlist.z* c:\im2\nodelist
  94.  if exist c:\im2\nodelist\toadlist.z* pkunzip c:\im2\nodelist\toadlist.z*
  95.  pak x nodediff.*
  96.  editnl /clean
  97.  CD\IM2
  98.  IMNC /F
  99.  CD\IM2
  100.  CALL NODELIST.BAT
  101.  if exist c:\im2\nodelist\toadnet.z* del toadnet.z*
  102.  if exist c:\im2\nodelist\racenet.z* del racenet.z*
  103.  goto aftermail
  104. ;
  105. :33600
  106. ;
  107.  C:
  108.  CD\TE
  109.  terminat /host /login /baud:33600
  110.  goto start
  111. ;
  112. :31200
  113. ;
  114.  C:
  115.  CD\TE
  116.  terminat /host /login /baud:31200
  117.  goto start
  118. ;
  119. :38400
  120. ;
  121.  C:
  122.  CD\TE
  123.  terminat /host /login /baud:38400
  124.  goto start
  125. ;
  126. :26400
  127. ;
  128.  C:
  129.  CD\TE
  130.  terminat /host /login /baud:26400
  131.  goto start
  132. ;
  133. :24000
  134. ;
  135.  C:
  136.  CD\TE
  137.  terminat /host /login /baud:24000
  138.  goto start
  139. ;
  140. :21600
  141. ;
  142.  C:
  143.  CD\TE
  144.  terminat /host /login /baud:21600
  145.  goto start
  146. ;
  147. :19200
  148.  C:
  149.  CD\TE
  150.  terminat /host /login /baud:19200
  151.  goto start
  152. ;
  153. :16800
  154.  C:
  155.  CD\TE
  156.  terminat /host /login /baud:16800
  157.  goto start
  158. ;
  159. :14400
  160.  C:
  161.  CD\TE
  162.  terminat /host /login /baud:14400
  163.  goto start
  164. ;
  165. :12000
  166.  C:
  167.  CD\TE
  168.  terminat /host /login /baud:12000
  169.  goto start
  170. ;
  171. :9600
  172.  C:
  173.  CD\TE
  174.  terminat /host /login /baud:9600
  175.  goto start
  176. ;
  177. :7200
  178.  C:
  179.  CD\TE
  180.  terminat /host /login /baud:7200
  181.  goto start
  182. ;
  183. :4800
  184.  C:
  185.  CD\TE
  186.  terminat /host /login /baud:4800
  187.  goto start
  188. ;
  189. :2400
  190.  C:
  191.  CD\TE
  192.  terminat /host /login /baud:2400
  193.  goto start
  194. ;
  195. :28800
  196.  C:
  197.  CD\TE
  198.  terminate /host /login /baud:28800
  199.  goto start
  200. ;
  201. :TIC
  202.  C:
  203.  CD\IM2\AF
  204.  ALLFIX MGR
  205.  ALLFIX SCAN
  206.  ALLFIX FILE
  207.  ALLFIX FILE -TOSSBAD
  208.  ALLFIX ANNOUNCE
  209.  C:
  210.  CD\IM2
  211.  goto start
  212. ;
  213. :MAINTENANCE
  214.  C:
  215.  CD\IM2
  216.  CALL LOGS.BAT
  217.  CALL SCAN.BAT
  218.  if exist c:\im2\packets\5AC2182A.* copy c:\im2\packets\5AC2182A.* c:\te\in
  219.  C:
  220.  CD\IM2
  221.  goto start
  222. ;
  223. :TAPE
  224.  C:
  225.  CD\IM2
  226.  CALL TAPE1.BAT
  227.  C:
  228.  CD\IM2
  229.  goto start
  230. ;
  231. :PACK
  232.  C:
  233.  CD\IM2
  234.  CALL PURGE.BAT
  235.  C:
  236.  CD\IM2
  237.  goto start
  238. ;
  239. :toss
  240.  C:
  241.  CD\IM2
  242.  CALL TOSS.BAT
  243.  C:
  244.  CD\IM2
  245.  X00
  246. ;
  247. :END
  248.